home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / disk / Backup / MRBackup / Rexx / utilities.mrbk < prev    next >
Text File  |  1991-01-12  |  1KB  |  63 lines
  1. /* utilities.mrbk */
  2.  
  3. /* This ARexx program is a simple-minded script to invoke MRBackup's
  4.  * file utilities, then terminate.
  5.  */
  6.  
  7. signal on ERROR
  8. signal on BREAK_C
  9.  
  10. options results
  11.  
  12. if ~(Show('P', 'MRBackup_#1')) then do
  13.     say "You must run MRBackup first. With a little work, you could"
  14.     say "get this ARexx script to do it for you."
  15.     exit 1
  16. end
  17.  
  18. address "MRBackup_#1"
  19.  
  20. poptofront
  21.  
  22. backpath = "DF0:"
  23. setbackpath backpath
  24. if rc ~= 0 then do
  25.     say "Failed to set backup path to " || backpath
  26.     exit 1
  27. end
  28.  
  29. homepath = "DH0:"
  30. sethomepath homepath
  31. if rc ~= 0 then do
  32.     say "Failed to set home path to " || homepath
  33.     exit 1
  34. end
  35.  
  36. utilities
  37.  
  38. if rc ~= 0 then do
  39.     say "Utilities failed; error code: " || rc
  40. end
  41.  
  42. quit
  43.  
  44. exit rc
  45.  
  46.  
  47. /*------------------------------------------------------------------*/
  48.  
  49. break_c:
  50.  
  51. say "*** Control-C recieved.  Stopped by user. ***"
  52. exit 5
  53.  
  54. /*------------------------------------------------------------------*/
  55.  
  56. error:
  57.  
  58. say "Error"
  59. exit 6
  60.  
  61. /*------------------------------------------------------------------*/
  62.  
  63.